home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Simpsons Cartoon Studio™ Demo / Simpsons / Support / dlogdata / export.Dxr / 00001_main.ls next >
Encoding:
Text File  |  1996-08-16  |  1013 b   |  40 lines
  1. global theExportDialog, theScrollBar, toonDataFileList, exportDialogBox
  2.  
  3. on startMovie
  4.   set the modal of exportDialogBox to 1
  5.   set the exitLock to 1
  6.   set theExportDialog to birth(script "exportDialogBox parent")
  7.   set theScrollBar to birth(script "scrollbar parent")
  8.   init(theExportDialog)
  9. end
  10.  
  11. on hiliteButton whichSprite
  12.   set hilit to 1
  13.   set theCastNum to the castNum of sprite whichSprite
  14.   set the castNum of sprite whichSprite to theCastNum + 1
  15.   updateStage()
  16.   repeat while the mouseDown
  17.     if rollOver(whichSprite) then
  18.       set the castNum of sprite whichSprite to theCastNum + 1
  19.       set hilit to 1
  20.     else
  21.       set the castNum of sprite whichSprite to theCastNum
  22.       set hilit to 0
  23.     end if
  24.     updateStage()
  25.   end repeat
  26.   set the castNum of sprite whichSprite to theCastNum
  27.   updateStage()
  28.   if hilit then
  29.     return 1
  30.   else
  31.     return 0
  32.   end if
  33. end
  34.  
  35. on puppetSprites START, finish, state
  36.   repeat with theSprite = START to finish
  37.     puppetSprite(theSprite, state)
  38.   end repeat
  39. end
  40.